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. DSABL 
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— "iSX-Plus DHll & DHVll Mux support 



TSDHIO contains the resident TSX-Plus routine to handle I/O to 
terminals that are connected to DHll and DHVll communications lines. 

Global definitions 

. GLOBL TSDHIO 

. GLOBL DHOINT, DHSTRT, DHSTOP 

. GLOBL VHOINT, VHSTRT, VHSTOP 

. GLOBL DHXOFF. VHXOFF, DHXON, VHXON 

. GLOBL DHTIMR 

Global references 

. GLOBL MH*BAR, HF$LIN. HH*SCR, MH*BCR, MH*CAR, DHBFSZ 

. GLOBL LOUTIR, PSW, INTPRI, MH*PBR, VF*LIN, VH*CSR, NEDCDO 

. GLOBL VH*BA1 . VH*BA2, VH«BCR, VF*TEN, VF*TGO, VH*LCR, LMXLN 

. GLOBL MXLNT, $CTRLS, LSW3. LSW5, fXCHAR, LMXNUM, *HISTP 

. GLOBL VF*ABT. VF$TDV. VH*DBR, *DHBF1 , *DHBF2, LSWIO, *DHCDO 

. GLOBL LDHBIB, LDHBIP, LDHB2B, LDHB2S, LDHB2R, LCDTYP, CDSTR2 

. GLOBL *DHXOF, *DHXON, VF*XOF, VF*RIE, HF*RIE, HF*TI 



Macro definitions 

Disable interrupts 

. MACRO DISABL 
BIS #340, ©#PSW 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BIC INTPRI,e«PSW 

. ENDM ENABL 



; Disable interrupts 



Enable interrupts 



000001 
000010 
000100 
001000 
010000 
100000 



000002 000004 LINE IT: . WORD 

000020 000040 

000200 000400 

002000 004000 . WORD 

020000 040000 



Misc data 



Data areas 

Table used to select lines within a DHll group 
1, 2, 4, 10, 20, 40, 100, 200, 400 



1000, 2000, 4000, 10000, 20000, 40000, 100000 
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54 000040 023 CTLSBF: .BYTE 23 iControl-S DMA buffer 

55 000041 021 CTLQBF: .BYTE 21 i Control-Q DMA buffer 

56 . EVEN 



DHOINT — 



3 
4 
5 
6 
7 
S 
9 
10 
U 
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Output interrupt from DHll line 



010046 



013746 OOOOOOG 
005037 OOOOOOG 



011505 



13 000042 

14 

15 

16 

17 

18 000044 

19 000050 
20 
21 
22 

23 000054 
24 

25 

26 

27 000056 004737 000074' 

28 

29 

30 

31 000062 

32 000066 

33 000070 

34 000072 



012637 OOOOOOG 

012600 

012605 

000002 



SBTTL DHOINT — Output interrupt from DHll line 



Process an output interrupt from a DHll multiplexer. 

The interrupt is vectored directly to an instruction sequence of the 

form: 

JSR R5, e#DHOINT 
. WORD mux_numbGr 

Thus on entry to DHOINT* R5 has been saved on the stack and currently 
points to a word containing the mux index number. 



DHOINT: NOV 



RO, -<SP) 



Set the running interrupt priority level to 7 
(The hardware priority level is currently 7> 



MOV 
CLR 



INTPRI, -<SP) 
INTPRI 



; Save current priority level 
.i Say current priority is 7 



Obtain the mux index number 

NOV (R5),R5 ;Get the mux index number 
Call routine luhich restarts any transmitters that are ready for more output 

CALL DHOCHK ; Check for needing more output 



{Restore interrupt priority level 
i Return from interrupt 



F'inished 




NOV 


(SP)+, INTPRI 


NOV 


(SP)+, RO 


NOV 


(SP)+,R5 


RTI 





IfaDHlU - 
DHOCHK - 

1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
40 
49 
50 
51 
52 
53 
54 
55 
56 
57 



- !bA--I-'lUS UHiX '■ 

- Check for DHJl 



000074 
000076 
000100 



000102 
000110 
000116 
000122 
000126 
000132 
000140 
000142 
000144 
000146 



000150 
000152 
000154 
000156 



000160 
000162 
000166 
000170 
000172 



000204 
000206 
000210 
000212 



010146 
010246 
010346 



042775 
016500 
017502 
010265 

005102 
005100 
040002 
00 1 422 



005003 
000241 
006002 
103012 



010301 
066501 
111101 
001405 
042761 



005203 
005702 
001360 
000733 
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lines that need more output 

. SBTTL DHOCHK 
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Check for DHll lines that need more output 



I 
f 



DHOCHK is called to determine which (if any) DHll lines ar6 ready for 
more output and restart those lines. 



Inputs: 
R5 = DHll mux index number. 



DHOCHK: MOV 

MOV 
MOV 



R 1 , - ( SP ) 
R2/ -<SP) 
R3, -(SP) 



OOOOOOG 
0000000 
0000000 
OOOOOOG 



OOOOOOG 



Get contents of DHll Buffer Active Register and determine which 
line(s) are ready for more output. 

3*: DISABL > i ; ** Disable interrupts ** 

i);i; Clear transmitter interrupt flag 
i i Get previous contents of BAR 
i i Get current buffer active flags 
; ; Save new "previous BAR value" 
** Enable interrupts ** 
Set flags for all inactive lines 
Clear flags for lines that mere active 
Get flags for lines that finished output 
Br if no lines need service 

At this point, R2 contains a flag bit for each of the 16 lines. 

The corresponding flag is set <1) if the line completed output since 

the last time this routine was called. 

Begin loop to start new output for each line that finished transmission. 

R3 



DISABL 




BIC 


#HF*TI, @MH*SCR 


MOV 


MH*PBR(R5),R0 


MOV 


eMH*BAR<R5),R2 


MOV 


R2, MH*PBR<R5) 


ENABL 




COM 


R2 


COM 


RO 


BIC 


RO, R2 


BEO 


9* 



1$: 



CLR 
CLC 
ROR 
BCC 



R2 
2* 



; Init index # of line within DHll mux group 

i Clear carry flag 

i Does this line need service? 

i Br if not 



We have found a line that has completed its output. 
Get TSX-Plus line index number. 



OOOOOOG 



OOOOOOG OOOOOOG 



MOV 

ADD 

MOVE 

BEQ 

BIC 



R3, Rl 

MXLNT<R5), Rl 
(Rl), Rl 
2* 



i Get # of line within mux group 

i Point into correct mux line # table 

i Get the physical line # 

; Br if not genned into system 



000200 004737 000224 



#*XCHAR, LSW3(R1 )/ Say transmitter not busy for line 

Try to start more output for this line 

CALL DHSTRT 'Try to start output for that line 

Ch€?ck the next line 



?*: 



INC 
TST 
BNE 
BR 



R3 
R2 
1* 
3* 



> Advance 1 ine # 

i Any more lines to check? 

i Loop if yes 

; See if more lines need service 
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58 
59 
60 
61 
62 
63 



000214 
000216 
000220 



012603 
OlShOi?. 
012601 
000207 



9«: 



F i n i & h e d 

HOV 
MOV 
MOV 



<SP)+, R3 
< SP ) +, R2 
<SP)+, Rl 



RETURN 
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DHSTRT — Start output to a DHll line 
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3 
4 
5 
6 
7 

8 000224 

9 000226 

10 000230 

11 000232 
12 

13 
14 

15 000234 

16 000242 

17 000250 
18 

19 
20 
21 

22 000252 

23 000260 

24 000264 
25 

26 
27 
28 
29 

30 000266 

31 000272 

32 000276 

33 000302 

34 000306 

35 000310 

36 000314 

37 000320 

38 000324 

39 000326 

40 000334 

41 000342 
42 

43 

44 

45 000344 

46 

47 

48 

49 000352 

50 000360 

51 000362 

52 000364 

53 000366 

54 000370 



010146 
010246 
010346 
010546 



032761 
001040 



052761 
004737 
103427 



016105 
116103 
052703 
110375 
005402 
010275 
010075 
042703 
006303 
056365 
056375 
000403 



012605 
012603 
012602 
012601 
000207 



. SBTTL DHSTRT — Start output to a DHll line 

DHSTRT is called to initiate transmission to a DHll line. 

Inputs: 
Rl -- Physical line index number 



DHSTRT: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP > 
R2, -<SP) 
R3, -<SP) 
R5, -<SP) 



Return if transmission to the line is in progress 



0000000 OOOOOOC 



DISABL 

BIT #*XCHAR,LSW3<R1) 

BWE 9* 



#* Disable interrupts «•«■ 

Is a transmission in progress now? 

Br if yes 



Line is currently idle. 

See if there is data ready to be transmitted. 



OOOOOOG 
001032' 



ooooooe 



BIS 

CALL 
nrt; 



#*XCHAR,LSW3<R1) 

DHSWBF 

1* 



; Say line is busy 

i Try to get data to transmit 

j Br if nothing to transmit 



There is data to be transmitted. 
RO = Address of DMA buffer. 
R2 = Number of characters in buffer. 



ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 

000000 ' 
000000 ' 



OOOOOOG 
OOOOOOG 



MOV 

MOVB 

BIS 

MOVB 

NEG 

MOV 

MOV 

BIC 

ASL 

BIS 

BIS 

BR 



LMXNUM<R1),R5 

LMXLN<R1),R3 

#HF*RIE, R3 

R3, eMH*SCR<R5) 

R2 

R2, eMH*BCR(R5) 

RO, @MH*CAR<R5) 

#HF*RIE>R3 

R3 



Get the mux index number 
Get # of line uithin mux group (0-15) 
Set receiver interrupt enable flag 
Select line of interest 
Get negative # bytes to transmit 
Set negative byte count 
Set address of DMA buffer 
Clear receiver interrupt enable flag 
Convert line # to word table index 
LINBIT<R3), MH*PBR<R5); i ;Set flag in shadow cell 
LINBIT<R3),@MH*BAR(R5); ; i Start transmitter for the line 
9* } i } 



There are no more characters to transmit 
042761 OOOOOOG OOOOOOG 1$: BIC #*XCHAR, LSW3(R1 ) i ; i Say transmitter is not busy 



F i J » i 5 h e d 



9*: 



ENABL 

MOV 

MOV 

MOV 

MOV 

RETURN 



i ** Enable interrupts «* 



(SP)+, R5 
(SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



I 
f 
I 
I 
( 
i 
i 

i 

€ 
I 

€ 

i 
i 

€ 

4 
< 
t 
< 
4 
i 



t 



ibUHlU 
DHSTOP 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
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000372 
000374 
000400 
000404 



000406 
000414 
000422 
000430 
000436 
000444 



000450 
000452 
000456 
000462 
000466 
000470 
000472 
000476 
000504 



000512 
000514 



010546 
016105 
016100 
006300 



046075 
046065 
042761 
052761 
005237 



006200 
052700 
110075 
017500 
001406 
005400 
010061 
017561 



. SDTTL DHSTOP — Stop transmission to a DHll line 

DHSTOP is called to stop transmission to a DHll line. 

This is done when a ctrl-S is received from the terminal and u»e 

want to suspend output until a ctrl-Q is received. 

Inputs: 
Rl = Physical line index number. 



OOOOOOC 
OOOOOOG 



DHSTOP : MOV 
MOV 
MOV 
ASL 



R5, -<SP) 
LMXNUM<R1),R5 
LMXLN<R1 ), RO 
RO 



; Oet mux index number 

;Get # of line within mux group (0-15) 

; Convert line # to word table index 



Abort the DMA transfer 



000000' OOOOOOG 
000000' OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



DISABL 

B.IC 

BIC 

BIG 

BIS 

I IMC 



; ; ; «« Disable interrupts *«• 
LINBIT<R0),@MH*BAR<R5)i ; i Stop transmitter for line 
LINBIT<RO), MH*PBR<R5); i i Say we know line is stopped 



#*XCHAR, LSW3(R1); 
#*DHCDO, LSW10<R1) 
NEDCDO ; 



; Say transmitter idle 

/jRequest clock-driven processing for line 

; Say output processing needed 



See if there is any data remaining to be transmitted. 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 



4*: 



ASR 

BIS 

MOVE 

MOV 

BEQ 

NEG 

MOV 

MOV 

EMABL 



j Get mux line number 
i Set receiver interrupt enable flag 
j Select line of interest 
j Get remaining byte count 
i Br if no remaining bytes to transmit 
i Get positive byte count 
i Save remaining byte count 
eMH*CAR(R5),LDHB2S<Rl); ; i Save DMA buffer address 

; «■«• Enable interrupts ** 



RO 

#HF*RIE>RO 

RO, @MH*SCR(R5) 

eMH*BCR<R5),R0 

4* 

RO 

RO, LDHB2R<R1> 



Finished 



012605 
000207 



MOV 
RETURN 



(SP)+, R5 



I 



TSDHIO 
DHXOFF 
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— Force transmission of XOFF to DHll line 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

27 
2S 
29 



000516 



000516 052761 0000000 OOOOOOG 



000524 052761 OOOOOOG OOOOOOG 



000532 004737 000372' 



000536 004737 000224 ' 



000542 000207 



. SBTTL DHXOFF — Force transmission of XOFF to DHll line 

DHXOFF is called to stuff an XOFF character into the output stream 
for a DHll line. 

Inputs: 
Rl = Line index number. 

DHXOFF: 

Set flag saying we have stopped the sender 

BIS #*HISTP» LSW10<R1); Set flag saying we have send XOFF to sender 
Set flag to cause DHSWBF to send an XOFF character 

BIS #*DHXOF, LSW10<R1 )i Tell DHSWBF to send XOFF 
Stop the current transmission 

CALL DHSTOP ; Stop the current transmission 

Now restart the transmitter so it will send the XOFF 

CALL DHSTRT ; Start the transmitter 

Finished 

RETURN 



T SDH 10 
DHXON 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



. SBTTL DHXON 



Force transmission of XON to a DHll line 



000544 



000544 042761 OOOOOOG 0000000 



000552 052761 OOOOOOG OOOOOOG 



000560 004737 000372 ' 



000564 004737 000224 ' 



000570 000207 



i DHXON is called to stuff an XON <ctrl~Q) character into the output 
; stream for a DHll line. 

> 

} Inputs: 

t Rl - Line index number. 

DHXON: 

i Clear flag that says sender has been stopped 

BIC #$HISTP/ LSW10<R1)J Clear flag that says XOFF sent to sender 
i Set flag to cause DHSWBF to transmit an XON character 

BIS #*DHXON. LSWiO<Rl)i Set flag to force XON transmission 
; Abort any current transmission 

CALL DHSTOP j Abort any current transmission 

.: Start the transmitter to transmit the XON 
i 

CALL DHSTRT i Start the transmitter 

> Fini shed 

RETURN 



i 

€ 

i 
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< 
i 

i 
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€ 
€ 

I 
i 
i 
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i 
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22 
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28 
29 
30 
31 
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33 
34 
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36 
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42 
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000572 
000574 
000576 
000600 



000602 
000610 



000612 
000616 



000620 
000626 
000632 
000636 
000642 
000644 
000652 



000660 
000664 
000670 
000672 
000700 
000702 
000704 
000712 
000714 



000716 



010246 
010346 
010446 
010546 



032761 
001074 



005761 
001071 



016105 
062705 
166105 
001454 
042761 



016102 
016103 
010104 

004713 
103405 

110022 
077512 



SBTTL DHTIMR 



Clock driven routine for DH/DHV output 



up 



DHTIMR is called on a clock interrupt (50/60 Hz) basis to set 

DMA transfers for DHll and DHVll multiplexers. 

This routine moves characters from the TTY output buffer into DMA 

buffers and starts the DMA transfer when a DMA buffer becomes full 

or there are no more characters in the TTY output buffer. 

There are two DMA buffers for each line. Buffer 1 is the one filled 

by this routine as characters become available. Buffer 2 is emptied 

by DMA transfers. The buffers are switched as DMA transfers are completed. 



; Inputs- 




; Ri = Line 


index number. 


DHTIMR: MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 


MOV 


R5,-(SP) 



OOOOOOC OOOOOOG 



Start output if we need to send either ctrl-S or ctrl-Q 

BIT #*DHXOF!*DHXON, LSW10<Rl)i Need to send ctrl-S or ctrl-Q? 
BNE 5* J Br if yes 

Start output if transmission was suspended 



0000000 



TST LDHB2R(R1) 
BNE 5* 



; Was output suspended? 
i Br if yes 



If buffer 1 is not full^ try to add more characters to it 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



6$: 



DISABL 

MOV 

ADD 

SUB 

BE(3 

BIC 

ENABL 



LDHB1B(R1),R5 i 
#DHBFSZ, R5 ; 
LDHB1P(R1 ),R5 ; 
4* ; 

#*DHBF1,LSW10(R1) 



«* Disable interrupts ** 

Get pointer to base of buffer 1 

Get pointer past end of buffer 1 

Compute free space in buffer 1 

Br if buffer 1 is full 

j Say buffer 1 is not ready to go 



i «•* Enable interrupts *« 



OOOOOOG 
OOOOOOG 



Buffer 1 is not full. 

Move as many characters as possible into buffer 1. 

Get pointer into buffer 1 

Get address of routine to supply characters 

Need line # in R4 for NEDCHR 

>;•«■* Disable interrupts «« 

; i Try to get another character for this line 

; ; Br if no more characters are available 

** Enable interrupts «« 

Store char into buffer 1 

Loop if more space in buffer 1 

Buffer 1 is either full or there are no more characters available. 
If there are any characters in buffer i> set flag saying it is 
ready to go. 



MOV 


LDHB1P(R1),R2 


MOV 


L0UTIR(R1),R3 


MOV 


R1,R4 


DISABL 




CALL 


(R3) 


BCS 


2* 


ENABL 




MOVB 


RO, (R2) + 


SOB 


R5, 1* 



?*: 



ENABL 



; *■«• Enable interrupts ** 



i 
i 
« 
i 
< 
I 
I 
i 

€ 
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€ 
€ 

4 
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i 
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i 



DHTIMR — Clock driven 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 
87 
88 
89 



000724 010261 
000730 166102 
000734 001431 



000736 052761 
000744 016100 
000750 004770 



OOOOOOG 
OOOOOOG 



000754 
000762 
000770 
000772 



000774 
001002 
001006 



001012 
001020 
001022 
001024 
001026 
001030 



032761 
001716 
000407 



MOV R2, LDHB1P<R1) 
SUB LDHB1B<R1)>R2 
BEQ 9* 



; Save new pointer into buffer 1 

; Compute # chars in buffer 1 

; Br if no characters in buffer 1 



Buffer 1 has some characters and is ready to go. 



OOOOOOG OOOOOOG 3*: 

OOOOOOG 

OOOOOOG 



BIS #*DHBF1* LSW10<R1 ); Say buffer 1 is ready to go 

MOV LCDTYP(R1 )» RO ; Get device type index 

CALL @CDSTR2<R0) ; Call secondary line start routine 



If buffer 1 uias used by the output server^ go back and try to 

refill it 



OOOOOOG OOOOOOG 



016100 
004770 



OOOOOOG 
OOOOOOG 



012605 
012604 
012603 
012602 
000207 



DISABL ; 

BIT #*DHBF1,LSW10<R1) 

BEQ 6* i 

BR 0* i 

Try to start output to DH line 



,••«••«■ Disable interrupts «■* 

iils buffer 1 now free 

i Br if yes 

jBuffer 1 is waiting to be sent 



4f: 


ENABL 




5$: 


MOV 


LCDTYP<R1),R0 




CALL 


@CDSTR2<R0) 




Finished 




8*: 


ENABL 




9$: 


MOV 


(SP)+,R5 




MOV 


(SP)+, R4 




MOV 


<SP)+, R3 




MOV 


<SP)+, R2 




RETURN 





** Enable interrupts «•* 

Get device type index 

Call secondary line start routin< 



*« Enable interrupts «•* 



TSDHIO - 
DHSWBF - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



— TSX-Plus UHii & uhVli HACKU vud. u4 Friday 18-Dec-87 07:57 Page 9 

— Switch DHll output buffers 



SBTTL DHSWBF — Switch DHll output buffers 



001032 



001032 032761 OOOOOOQ OOOOOOG 

001040 001410 

001042 042761 OOOOOOG OOOOOOG 

001050 012700 000040' 

001054 012702 000001 

001060 000461 



DHSWBF is called when we finish transmitting DMA characters to a DHll or 
DHVll to try to get a new buffer of characters. 

If buffer 1 is ready to go <*DHBF1 flag set) the buffer pointers are 
swapped and buffer 1 becomes ready to be sent. 

Inputs: 
RJ. ~ Line index number. 

Outputs: 
C-flag cleared ==> A buffer switch took place. Data ready for transmission 
C--flag set ==> There is not data ready for transmission. 
RO = Address of buffer with data <if C-flag cleared). 
R2 = Number of characters to transmit. 

DHSWBF: 

See if we need to send a control-S. 

BIT #*DHXOF, LSW10(R1)J Do we need to send control-S? 

BEQ 2* i Br if not 

BIC #«DHXOF, LSW10<R1); Say control-S being sent 

MOV #CTLSBF, RO ; Point to control-S buffer 

MOV #1,R2 j Say to send 1 character 

BR 3« i Go send ctrl-S 



See if we need to send a control-Q. 



001062 032761 OOOOOOG OOOOOOG 2*: 

001070 001410 

001072 042761 OOOOOOG OOOOOOG 

00 1 1 00 01 2700 00004 1 ' 

001104 012702 000001 

001110 000445 



BIT 
BEQ 
BIC 
MOV 
MOV 
BR 



#*DHXON, LSW10<R1); Do we need to send control-Q? 

4* i Br if not 

#«DHXON, LSW10<Rl)i Say control-Q being sent 

#CTLQBF, RO ; Point to buffer 

#1,R2 i Say to send 1 character 

3* * Go send ctrl-Q 



001112 032761 
001120 001053 



OOOOOOG OOOOOOG 4*: 



ooii; 



016102 OOOOOOG 



001126 001405 

001130 005061 OOOOOOG 

001134 016100 OOOOOOG 

001140 000431 



See if output is suspended because we received a control-S 

BIT #*CTRLS, LSW3(R1); Is output suspended due to ctrl-S? 

BNE 7* ; Br if yes 

See if transmission was suspended and we need to restart now. 

; Was transmission of buffer 2 suspended? 

; Br if not 

i Say not suspended now 

j Get pointer to restart point in buffer 2 

i Go restart transmission 



MOV 


LDHB2R(R1).R2 


BEQ 


5* 


CLR 


LDHB2R<R1) 


MOV 


LDHB2S<R1),R0 


BR 


3* 



See if buffer 1 is ready to go 



001142 032761 OOOOOOG OOOOOOG 5*: 
001150 001434 



BIT #*DHBF1, LSW10<R1)^ Is buffer 1 ready to go? 
BEQ 1* ;Br if not 



Buffer 1 is ready to go 
Switch buffer pointers 






iBDrilU 
DHSWBF 



— IbX-Plus DHli «< DHvil HACRu vOd. 04 
~ Switch DHli output buffers 



hriday 18-Dec-S7 07: 57 Page v-i 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



001152 
001156 
001162 
001166 
001174 
001200 



001210 
001216 



001224 
001232 
001236 
001240 



001242 
001250 



016102 
166102 
016100 
016161 
010061 
010061 
016100 



052761 
042761 



052761 
005237 
000241 
000404 



042761 
000261 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 



MOV 
SUB 
MOV 
MOV 
MOV 
MOV 
MOV 



LDHB1P<R1),R2 ; Get pointer into buffer 1 

LDHB1B<R1),R2 i Get # characters in buffer 1 

LDHB2B(R1),R0 ; Base of buffer 2 

LDHBlB(Rl),LDHB2B(Rl)i Switch buffer base pointers 
RO, LDHB1B<R1) 

RO, LDHBIP(RI) i Reset pointer into buffer 1 

LDHB2B<R1),R0 ; Return address of buffer 2 in RO 



3$: 



Now set status indicating that buffer 2 is busy and buffer 1 is free 

BIS #*DHBF2, LSWIO(RI); Buffer 2 is busy 
BIC #*DHBF1, LSW10<R1); Buffer 1 is free 

There is data ready for transmission start. 

BIS #*DHCDO, LSW10<R1 ); Request clock-driven processing for line 

INC NEDCDO ; Say output character processing needed 

CLC i Signal that buffer 2 is ready to go 

BR 9* 

Buffer 1 is not ready to go. 
Marh buffer 2 as free. 



OOOOOOG OOOOOOG 



001252 000207 



1*: 
7*: 



9* 



BIC 
SEC 

Fini shed 

RETURN 



#*DHBF2, LSW10<Rl)i Say buffer 2 is free 

i Say that buffer 1 not ready to go 



TSDHIO - 


— T5X-Fius DHii 


S< DHvli 


riACRO vO 


5. 


VHSTRT - 

1 

2 
3 


-- Start 


output 


to a DHVll line 










r 


4 












5 












6 












7 












8 


001254 


010146 




VH 


9 


001256 


010246 






10 


001260 


010346 






11 

12 
13 


001262 


010546 
















14 










f 


15 


001264 








16 


001272 


032761 


0000000 


OOOOOOG 


17 


001300 


001036 






18 












19 












20 












21 












22 


001302 


052761 


OOOOOOG 


OOOOOOG 


23 


001310 


004737 


001032' 




24 


001314 


103420 






25 












26 












27 












28 












29 












30 


001316 


016105 


OOOOOOG 




31 


001322 


116103 


OOOOOOG 




32 


001326 


052703 


OOOOOOG 




33 


001332 


110375 


OOOOOOG 




34 


001336 


010275 


OOOOOOG 




35 


001342 


010075 


OOOOOOG 




36 


001346 


012775 


OOOOOOC 


OOOOOOG 


37 


001354 


000410 






38 












39 












40 












41 


001356 


042761 


OOOOOOG 


OOOOOOG 1* 


42 


001364 


052761 


OOOOOOG 


OOOOOOG 


43 


001372 


005237 


OOOOOOG 




44 








/ 




45 












46 








i 




47 


001376 






9* 


48 


001404 


012605 






49 


001406 


012603 






50 


001410 


012602 






51 


001412 


012601 






52 


001414 


000207 









)H ^rlaay xa~uec-a/ u/: o/ r-age lu 

. SBTTL VHSTRT — Start output to a DHVll line 

VHSTRT 15 called to initiate transmission to a DHVll line. 

Inputs: 
Rl = Physical line index number. 



VHSTRT: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -<SP) 
R5, -(SP) 



Return if transmission to the line is in progress 



DISABL 

BIT #*XCHAR,LSW3<R1) 

BNE 9* 



** Disable interrupts ** 

Is a transmission in progress nom? 

Br if yes 



Line is currently idle. 

See if there is data ready to be transmitted. 



BIS 


#*XCHAR, LSW3<Rl)i 


CALL 


DHSWBF ■> 


BCS 


1% i 



i Say 1 ine is busy 

; Try to get data to transmit 

i Br if nothing to transmit 



There is data to be transmitted. 

RO = Address of DMA buffer. 

R2 = Number of characters in buffer. 



MOV 

MOVE 

BIS 

MOVB 

MOV 

MOV 

MOV 

BR 



Get the mux index number 

Get line # within mux group 

Set receiver interrupt enable flag 

Select our line 

Set DMA transfer length 

Set address of DMA buffer 

#VF*TENiVF*TGO, ©VH*BA2(R5)i ;; Start the DMA transmission 

9« Hi 



LMXNUM<R1),R5 
LMXLN<R1}, R3 
#VF*RIE, R3 
R3, eVH*CSR<R5) 
R2>@VH*BCR<R5) 
RO, @VH*BA1 <R5) 



There are no more characters to transmit 



BIG 


#*XCHAR, 


BIS 


#*DHCDO, 


INC 


NEDCDO 


Finished 




ENABL 




MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP)+,R1 


RETURN 





; Say transmitter is not busy 

Request clock-driven processing for line 

i Say output processing needed 



i ** Enable interrupts ** 



1 



VHOINT - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
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Output interrupt from DHVll line 
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001416 
001420 
001422 
001426 



001432 
001434 
001440 
001442 
001444 
001450 
001454 
001456 
001460 
001466 
001474 



001500 
001504 
001510 
001514 
001522 
001524 
001532 
001540 



001546 
001552 



001554 
001560 
001562 
001564 
001566 



010046 
010146 
013746 
005037 



011505 
017501 
002045 
000301 
042701 
066501 
111101 
001766 
042761 
052761 
005237 



116100 
052700 
110075 
032775 
001411 
017561 
017561 
042775 



004737 
000730 



012637 
012601 
012600 
012605 
000002 



OOOOOOG 

ooooooe 



OOOOOOG 



ooooooe 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



001254' 



OOOOOOG 



. SBTTL VHOINT — Output interrupt from DHVll line 

VHOINT is entered when an output interrupt occurs on a DHVll line. 
The interrupt is vectored directly to an instruction sequence of the 

form: 

JSR R5, e#VHOINT 
. WORD mux_number 

Thus on entry to VHOINT* R5 has been saved on the stack and currently 
points to a word containing the mux index number. 



VHOINT: MOV 
MOV 
MOV 
CLR 



RO, -<SP) 
Rl, -<SP) 
INTPRI, -(SP) 
INTPRI 



i Save current interrupt priority value 
J Say running interrupt priority = 7 



Obtain the interrupting physical line number 



OOOOOOG 
OOOOOOG 



MOV 


(R5),R5 


MOV 


@VH*CSR(R5),R1 


BGE 


9* 


SWAB 


Rl 


BIC 


#-^C<VF*LIN>, Rl 


ADD 


MXLNT<R5), Rl 


MOVB 


<R1),R1 


BEQ 


2* 


BIC 


#*XCHAR,LSW3(R1) 


BIS 


#«DHCDO, LSW10<R1 


INC 


NEDCDO 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



Get mux index number 
Get contents of DHVll CSR register 
Br if no transmitter needs service 
Right justify interrupting line # 
Clear all but line # 
Point into mux line # table 
Get TSX-plus line # 
Br if line not genned into system 
Say transmitter is not busy for this line 
); Request clock-driven processing for line 
i Say output processing needed 

See if a transmission was aborted 

MOVB LMXLN(R1),R0 ; Get line # within mux group 

BIS #VF*RIEiRO ; Set receiver interrupt enable flag 

MOVB RO, @VH*CSR(R5) i Select our line in mux 

BIT #VF*ABT, ©VH*LCR(R5)i Was the DMA transmission aborted? 

BEQ 1* ; Br if not 

MOV @VH*BCR(R5),LDHB2R<Rl)j Save remaining byte count 

MOV @VH*BA1(R5), LDHB2S<Rl)i Save suspended output buffer pointer 

BIC #VF*ABT, @VH*LCR<R5)i Clear the DMA abort flag 



Try to start more output for this line 



1*: 



CALL 
BR 



VHSTRT 
2* 



; Try to start more output for the line 
/See if another line needs service 



9* 



Finished — Return from interrupt 

; Restore interrupt priority 



MOV 
MOV 
MOV 
MOV 
RTI 



(SP)+, INTPRI 
<SP)+,R1 
(SP>+, RO 
<SP>+, R5 



; Pushed by JSR R5 

j Return from interrupt 



i 

4 

f 



€ 



rsDHm — ibX-h'lus uriil ?< urivli 
VHSTOP — Stop DMA transmission 



3 

4 

5 

6 

7 

S 001570 010546 

9 
10 
11 

12 001572 

13 001600 032761 

14 001606 001413 
15 

16 
17 
18 

19 001610 

20 001614 

21 001620 

22 001624 

23 001630 
24 
25 
26 

27 001636 

28 001644 

29 001646 



MACHu vua. u4 j-rictay lS-Dec-S7 07: 57 Page ly 
to a DHVii line 



0000000 OOOOOOG 



016105 
116100 
052700 
110075 
052775 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



SBTTL VHSTOP 



Stop DMA transmission to a DHVll line 



VHSTOP is called to abort a DMA transfer to a DHVll line. 



Inputs: 
Rl = Line index number. 

VHSTOP: MOV R5, -<SP) 

See if a transmission is in progress 



DISABL J 

BIT #*XCHAR,LSW3<Rl)i 
BEQ 9* ; 

A transmission is in progress. 
Set the DMA abort flag. 



; #* Disable interrupts ** 

i Is a transmission in progress noui? 

; Br if not 



9$: 



012605 
000207 



MOV 


LMXNUM<R1)>R5 


MOVE 


LMXLN<R1),R0 


BIS 


#VF*RIE, RO 


MOVE 


RO, @VH*CSR<R5) 


BIS 


#VF*ABT, eVH^LC 


Finished 




EWABL 




MOV 


<SP)+, R5 


RETURN 





Get mux index number 
Get # of line within mux group 
Set receiver interrupt enable flag 
Select our line 



«•* Enable interrupts 



VHXOFF - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 
47 

40 
49 
50 
51 
52 
53 
54 
55 
56 
57 



ft i»A i 



I S3 A— ri us unxi & unvxx 
Force transmission of 



I A •! u* ^ r\v 



001650 010546 



001652 052761 OOOOOOG 0000000 



001660 
001664 
001670 
001674 
001702 
001706 
001714 



001722 
001724 



016105 
116100 
052700 

110075 
052775 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



rirtUKu VU3. VH hriaay la-uec-a/ u/: D/ Hage u 
XOFF to DHVll line 

. SBTTL VHXOFF — Force transmission of XOFF to DHVll line 

VHXOFF is called to stuff an XOFF <ctrl-S) character into the output 
stream for a DHVll line. 

Inputs: 
Rl = Line index number. 

VHXOFF: MOV R5, -<SP) 

Set flag that says XOFF has been sent to sender 

BIS #*HISTP,LSW10<R1); Set flag saying XOFF has been sent 

Tell DHVll to transmit an XOFF 

Get mux index number 

Get # of mux line within mux 

Set receiver interrupt enable flag 

; J *» Disable interrupts ** 

ii Select our mux line 

5);; J Tell DHVll to send an XOFF 

*•«• Enable interrupts ** 



OOOOOOG 



012605 
000207 



MOV 


LMXNUM(R1),R5 


MOVB 


LMXLN<R1>> RO 


BIS 


#VF*RIE, RO 


DISABL 




MOVB 


RO, ®VH*CSR<R5 


BIS 


#VF*XOF, @VH*L 


ENABL 




Finished 




MOV 


(SP)+, R5 


RETURN 





001726 010546 



001730 042761 OOOOOOG OOOOOOG 



001736 
001742 
001746 
001752 
001760 
001764 
001772 



002000 
002002 



016105 
116100 
052700 

110075 
042775 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



.SBTTL VHXON — Force transmission of XON to a DHVll line 

VHXON is called to stuff an XON (ctrl-Q) character into the output 
stream for a DHVll line. 

Inputs: 
Rl = Line index number. 

VHXON: MOV R5, -<3P) 

Clear flag that says XOFF has been sent to sender 

BIC #*HISTP.LSW10<R1); Clear flag that says XOFF has been sent 

Tell DHVll to transmit an XON 

Get mux index number 
Get # of line within mux group 
Set receiver interrupt enable flag 
} } ifrifr Disable interrupts if* 
ij Select our mux line 
R5);;;Tell DHVll to send an XON 
; *# Enable interrupts ** 



012605 
000207 



MOV 


LMXNUMCRl), R5 


MOVB 


LMXLN<R1), RO 


BIS 


#VF*RIE, RO 


DISABL 




MOVB 


RO, @VH*CSR<R5 


BIC 


#VF$XOF, eVH*L 


ENABL 




Finished 




MOV 


(SP)+, R5 


RETURN 





t 

< 
I 
c 
I 
i 
< 
I 
i 
i 
i 
i 

€ 

i 

i 

i 
i 



i 



y 
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58 00000 -t . END 

Errors detected: 

«#■»*• Assembler statistics 

Work file reads: 

Work file writes: 

Size of work file: 117 Words < 1 Pages) 

Size of core pool: 17920 Words < 70 Pages) 

Operating system: RT-l 1 

Elapsed time: 00:00:20.02 

DK: TSDHIO, LP: TSDHIO=DK: TSDHIO. MAC/C/N: SYM 
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Cross reference table <CREF V05. 04) 



*CTRLS 


1-24 


9-39 


























*DHBF1 


1-25 


8-37 


8-64 


8-72 


9-52 


9-69 


















$DHBF2 


1-25 


9-6« 


V-Sl 
























*DHCDO 


1-25 


5-21 


9-73 


10-42 


11-29 




















*DHXOF 


1-27 


6-17 


8-22 


9-21 


9-23 




















*DHXON 


1-27 


7-17 


8-22 


9-30 


9-32 




















*HISTP 


1-24 


6-13 


7-13 


13-13 


13-42 




















*XCHAR 


1-24 


3-45 


4-16 


4-22 


4-45 


5-20 


10-16 


10- 


-22 


10 


-41 


11 


-28 


12-13 


CDSTR2 


1-26 


8-66 


8-80 
























CTLQBF 


l-55# 


9-33 


























CTLSBF 


l-54# 


9-24 


























DHBFSZ 


1-21 


0-34 


























DHOCHK 


2-27 


3-9# 


























DHOINT 


1-14 


2-13# 


























DHSTOP 


1-14 


5-10# 


6-21 


7-21 






















DHSTRT 


1-14 


3-49 


4"8# 


6-25 


7-25 




















DHSWBF 


4-23 


9-17# 


10-23 
























DHTIMR 


1-17 


e-i5# 


























DHXOFF 


1-16 


6-V# 


























DHXON 


1-16 


7-9# 


























HF*LIN 


1-21 




























HF*RIE 


1-27 


4-32 


4-37 


5-27 






















HF*TI 


1-27 


3-17 


























INTPRI 


1-22 
10-47 


2-18 
11-15 


2-19* 
11-16* 


2-31* 
11-50* 


3-21 
12-27 


4-49 

13-23 


5-34 
1 3-52 


8- 


-38 


8" 


-49 


8- 


"57 


S-7B 


LCDTYP 


1-26 


8-65 


8-79 
























LDHBIB 


1-26 


8-33 


8-59 


9-59 


9-61 


9-62* 


















LDHBIP 


1-26 


8-35 


8-43 


8-58* 


9-58 


9-63* 


















LDHB2B 


1-26 


9-60 


9-61* 


9-64 






















LDHB2R 


1-26 


5-32* 


8-27 


9-44 


9-46* 


11-39* 


















LDHB2S 


1-26 


5-33* 


9-47 


11-40* 






















LINBIT 


l-49# 


4-39 


4-40 


5-18 


5-19 




















LMXLN 


1-23 


4-31 


5-12 


10-31 


11-34 


12-20 


13-18 


13- 


-47 












LMXNUM 


1-24 


4-30 


5-11 


10-30 


12-19 


13-17 


13-46 
















LOUT I R 


1-22 


8-44 


























LSWIO 


1-25 


5-21* 


6-13* 


6-17* 


7-13* 


7-17* 


8-22 


8- 


-37* 


8- 


-64* 


8- 


-72 


9-21 




9-30 


9-32* 


9-52 


9-68* 


9-69* 


9-73* 


9-81* 


10- 


-42* 


11" 


-29* 


13- 


-13* 


13-42* 


LSW3 


1-24 


3-45* 


4-16 


4-22* 


4-45* 


5-20* 


9-39 


10- 


-16 


10- 


-22* 


10- 


-41* 


11-28* 


LSW5 


1-24 




























MH*BAR 


1-21 


3-19 


4-40* 


5-18* 






















MH«BCR 


1-21 


4-35* 


5-29 
























MH*CAR 


1-21 


4-36* 


5-33 
























MH*PBR 


1-22 


3-18 


3-20* 


4-39* 


5-19* 




















MHfSCR 


1-21 


3-17* 


4-33* 


5-28* 






















MXLNT 


1-24 


3-42 


11-25 
























NEDCDO 


1-22 


5-22* 


9-74* 


10-43* 


11-30* 




















PSW 


1-22 


3-16* 


3-21* 


4-15* 


4-49* 


5-17* 


5-34* 


8- 


-32* 


8- 


-38* 


8- 


-46* 


8-49* 




8-71* 


8-78* 


8-84* 


10-15* 


10-47* 


12-12* 


12-27* 


13- 


-20* 


13- 


-23* 


13- 


-49* 


13-52* 


TSDHIO 


l-3# 


1-13 


























VFfABT 


1-25 


11-37 


11-41 


12-23 






















VF*LIN 


1-22 


11-24 


























VF*RIE 


1-27 


10-32 


11-35 


12-21 


13-19 


13-48 


















VF*TDV 


1-25 




























VF*TEN 


1-23 


10-36 


























VF*TGO 


1-23 


10-36 


























VF*XOF 


1-27 


13-22 


13-51 

























8-84 



9-23* 
12-13 



B-57* 



Cross reference table <CREF V05. 04) 



I 



VH*BA1 




-23 


VH*BA2 




-23 


vH*BCR 




-23 


VH*CSR 




-22 


VH*DBR 




-25 


VH*LCR 




-23 


VHOINT 




-15 


VHSTOP 


1- 


-15 


VHSTRT 


i- 


-15 


VHXOFF 


1- 


-16 


VHXON 


1- 


-16 



10-35+i- 11 --40 

10-36f^ 

iO-34*- ii-"39 

10-33^f 11-21 11-36* 12-22* 13-21* 13-50* 

11-37 11-41* 12-23* 13-22* 13-51* 

11-13# 

1 2-8# 

10-8# 11-45 

13-9# 

13-38# 



{ 
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Cross reference table <CREF 



VI 1 MACF?U 


V05. 04 


V05. 04 ) 




4-15 


5-17 


4-49 


5-34 



DISABL l-34# 3~lh 4-15 5-17 8-32 8-46 0-71 10-15 12-12 13-20 13-49 

ENABL l-40# 3-21 4-49 5-34 S~3S 8-49 S-57 8-78 8-84 10-47 12-27 13-23 
13-52 



